home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / U-User Group / (k)ua.d64 / dsp.jane < prev    next >
Text File  |  2007-02-28  |  2KB  |  137 lines
  1. // DELETE "EXT.JANE"
  2. // SAVE   "EXT.JANE"
  3. //  BY ─AVID ╘URNER - 5/12/85
  4. //
  5. //JANE'S WELCOME MESSAGE
  6. //
  7. ╨╥╧├ JANE ├╠╧╙┼─
  8.   ╨┴╟┼
  9.   ╒╙┼ TURTLE
  10.   TEXTCOLOR(1)
  11.   ╨╥╔╬╘ "╨┴╘╔┼╬├┼ ╔╙ ┴ ╓╔╥╘╒┼..."
  12.   HIDETURTLE
  13.   BACKGROUND(1)
  14.   PENCOLOR(7)
  15.   MOVETO(-95,40)
  16.   SETHEADING(270)
  17.   FORWARD(10)
  18.   SETHEADING(180)
  19.   FORWARD(80)
  20.   ARCR(20,170)
  21.   SETHEADING(0)
  22.   FORWARD(5)
  23.   SETHEADING(270)
  24.   FORWARD(10)
  25.   SETHEADING(180)
  26.   ARCL(30,170)
  27.   SETHEADING(0)
  28.   FORWARD(84)
  29.   FILL(-96,39)
  30.   PENUP
  31.   SETHEADING(90)
  32.   FORWARD(65)
  33.   PENCOLOR(7)
  34.   PENDOWN
  35.   SETHEADING(270)
  36.   FORWARD(20)
  37.   SETHEADING(200)
  38.   FORWARD(115)
  39.   SETHEADING(90)
  40.   FORWARD(10)
  41.   SETHEADING(20)
  42.   FORWARD(105)
  43.   SETHEADING(90)
  44.   FORWARD(10)
  45.   SETHEADING(160)
  46.   FORWARD(105)
  47.   SETHEADING(90)
  48.   FORWARD(10)
  49.   SETHEADING(339)
  50.   FORWARD(115)
  51.   FILL(-28,34)
  52.   PENUP
  53.   SETHEADING(180)
  54.   FORWARD(60)
  55.   SETHEADING(90)
  56.   FORWARD(14)
  57.   PENDOWN
  58.   SETHEADING(270)
  59.   FORWARD(50)
  60.   SETHEADING(0)
  61.   FORWARD(8)
  62.   SETHEADING(90)
  63.   FORWARD(48)
  64.   FILL(-21,-17)
  65.   MOVETO(22,40)
  66.   PENCOLOR(7)
  67.   SETHEADING(180)
  68.   FORWARD(110)
  69.   SETHEADING(90)
  70.   FORWARD(10)
  71.   SETHEADING(0)
  72.   FORWARD(98)
  73.   SETHEADING(160)
  74.   FORWARD(104)
  75.   SETHEADING(90)
  76.   FORWARD(10)
  77.   SETHEADING(0)
  78.   FORWARD(110)
  79.   SETHEADING(270)
  80.   FORWARD(10)
  81.   SETHEADING(180)
  82.   FORWARD(82)
  83.   SETHEADING(340)
  84.   FORWARD(87)
  85.   SETHEADING(270)
  86.   FORWARD(15)
  87.   FILL(30,35)
  88.   MOVETO(89,40)
  89.   PENCOLOR(7)
  90.   SETHEADING(180)
  91.   FORWARD(110)
  92.   SETHEADING(90)
  93.   FORWARD(50)
  94.   SETHEADING(0)
  95.   FORWARD(8)
  96.   SETHEADING(270)
  97.   FORWARD(40)
  98.   SETHEADING(0)
  99.   FORWARD(43)
  100.   SETHEADING(90)
  101.   FORWARD(40)
  102.   SETHEADING(0)
  103.   FORWARD(8)
  104.   SETHEADING(270)
  105.   FORWARD(40)
  106.   SETHEADING(0)
  107.   FORWARD(45)
  108.   SETHEADING(90)
  109.   FORWARD(40)
  110.   SETHEADING(0)
  111.   FORWARD(7)
  112.   SETHEADING(270)
  113.   ╨╥╔╬╘ 
  114.   ╨╥╔╬╘ 
  115.   FORWARD(50)
  116.   FILL(94,36)
  117.   PENCOLOR(3)
  118.   TEXTSTYLE(3,3,0,1)
  119.   PLOTTEXT(-65,50,"╚┼╠╠╧")
  120.   PENCOLOR(14)
  121.   PLOTTEXT(-160,-80,"ññññññññññññññññññññññññññññññññññññññ")
  122.   PLOTTEXT(-160,85,"ññññññññññññññññññññññññññññññññññññññ")
  123.   FILL(-160,-81)
  124.   ╨╥╔╬╘ "     ...╘╚┴╬╦-┘╧╒ ╞╧╥ ╫┴╔╘╔╬╟."
  125.   FILL(-160,90)
  126.   GRAPHICSCREEN(0)
  127.   ╞╧╥ DELAY:=0 ╘╧ 50 ─╧
  128.     BACKGROUND(1)
  129.     BACKGROUND(3)
  130.     ╞╧╥ WAIT:=1 ╘╧ 100 ─╧ ╬╒╠╠
  131.   ┼╬─╞╧╥ DELAY
  132.   ╨╥╔╬╘ ""147""
  133. ┼╬─╨╥╧├ JANE
  134. //
  135. JANE
  136. ┼╬─ 
  137.